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3-SEE- 1382 $3:37 198 BASRTL.SRCJBASMATTRN.MAR; 1 . 
AT 
bi : File: BASMATTRN.MAR Edit: $8L1013 
s evencecececescoceereeccccerscerneqncesereneqnceccsonseseeeenceeceoeeeeoeees 
COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 


DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ON ACCORDANCE WITH THE TERMS OF SUCH LICENS® AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
® 
® 
® 
® 
* 
® 
® 
.d 
a 
TRANSFERRED. . 
® 
® 
& 
* 
& 
* 
® 
® 
® 
* 


-* 
-* 
:* 
:* 
-* 
:® 
:* 
-® 
. 

° 

° 


® 

® 

cm 

® 

* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
* CORPORATION. 

® 

* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
* SOFTWARE ON EQUIPMENT WHICH 1S NOT SUPPLIED BY DIGITAL. 

® 

® 
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: FACILITY: BASIC code support 

: ABSTRACT: 

; This module writes the transpose of a matrix into a second matrix. 
: ENVIRONMENT: User Mode, AST Reentrant 


S AUTHOR: R. WiLL, CREATION DATE: 10-Jul-79 
: MODIFIED BY: 
*+¢ 


Original 

Fin test for ‘same array’ for virtual. RW 15-Feb-1980 

Add support for byte, g & h floating. PLL 22-Sep-81 

More modifications for new data types. PLL 24-Sep-81 

change shared external references to G* RNH 25-Sep-81 

tute a macro for the calls to the array fetch and store 

routines. This should speed things up. PLL 9-Nov-81 

- STORE macro must handle g ° h {\osting, PLL 11-Nov-81 

- sorresk a run-time expression in the FETCH and STORE macros. 
PLL -Jan-82 

-009 = Don't List macro expansions. PLL 16-Mar-82 

-010 - Remove FETCH and STORE macros; they are now located in macro 

Library MATRIXMAC gt3. 438° added support for arrays of 

descriptors. LB 19-May-8 

; 1-011 = Change own storage to stack storage. LB 9-Jul-1982 


1 
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— 
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1-013 6-SEP=1984 10:31:25 (CBASRTL.SRCIJBASMATTRN. MAR; 1 (1) 
0000 58 ; 1-012 - Allow gfloat results to be stored in a double destination, and 
0000 59 ; vice versa. PLL 7-0ct-198 


000 60 ; 1-013 - Use G* for ALL externals. SBL 16-Nov-1982 
000 61 ie 


Oooo 
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=] 


~SBTTL 


: INCLUDE FILES: 
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<* “SEP=19 
6-SEP-19 


DECLARATIONS 


: EXTERNAL DECLARATIONS: 


»DSABL 


eEXTRN 


> MACROS: 


STORE 


SBASSMAT_TRN 
FETCH 


GBL 
BASSK_ARGDONMAT 


BASSK_DATTYPERR 
BASSK_MATDIMERR 
BASSK_ILLOPE 

BASS$STO_FA_ 


a 
e£oroonr =o 


0.00 09 09 0d C0. 00 CD G9 G9 GD Co CD CD 


a 
—Tracwnr 


rd te R1 


Ro 
BASSSSTOP” 
BASSFETCH Ef 


A 
BASSSTORE_BFA 
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transpose loop al 
fetch an gienens | 
Library MATRIXMA 
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; define descriptor offsets 
; use to get scale 


Prevent undeclared 
symbols from being 
qusonee teas ty y gig al. 

signalled i 3 blocks 
at present array desc 


r dimc 
signalled if dtype of array 
isn't word long float double 
signalled if src matrix has 
only 1 dimension 

signalled if “DSCSA. POINTER is 


in src and dest matrices 


array element store for byte 
array element store for word 
array element store for long 
array element store - float 

array element store - double 


array element store - gfloat 
array element store - hfloat 
array element fetch =- byte 
array element fetch - word 
array element fetch - Long 
array element fetch - float 
array element fetch - double 
array element retes - gfloat 
array element fetch - hfloat 


check if nedlenertaning of 
eaek array is necessary, if 


() 
scale the double procision 


truncate dbl precision number 
signal fatal errors 


see next page 


fon. an array (found in macro 


store an hay rie an array (found in macro 


Library MATRIXMAC.OLB) 
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DECLARATIONS g-SEp-1984 19:33 558 BASRTL.SRCJBASMATTRN.MAR; 1 ' (2). 
00 120 ; 
0 ' 3; EQUATED SYMBOLS: 
1 ° 
00000004 00 124 first_arg = 4 ; arg offset for str co 
00000008 000 125 secon aa = 8 3 ore offset for str copy 
ss id 00 1 $ ndexi = 12 3; stack offset for str copy 
B85 it $ 1 index2 = 16 i stack offset for str copy 
0000014 0000 128 temp_desc = 20 ; stack offset for str copy 
00000000 0000 129 lower_bnd2 = 0 ; stack offset for temp 
00000004 0000 130 lLower_bnd? = 4 ; stack offset for temp 
00000008 0000 131 upper_bndi = 8 3 stack offset for temp 
0000000C 0000 1 ¢ value_desc = 12 ; output descriptor 
0000000C 0000 1 str_len = 3: length field in desc 
QOOO0O0E 0000 134 dtype = 14 ; data type field in desc 
QOOO000F 0000 135 class = 1 ; class field within desc 
00000010 0000 136 pointer = 16 3; pointer to data 
00000014 0000 13 ata = 20 ; data 
00000018 0000 138 dsc$l_l1_1 = 24 ; desc offset if 1 sub 
0000001C 0000 139 dsc$l_ul_1 = 28 ; desc offset if 1 sub 
0000001C 0000 140 dsc$l_l1_2 = 28 ; desc offset if § sub 
00000020 444 141 dsc$l_ul_2 = 32 ; desc offset if 2 sub 
00000024 0000 146 dsc$t_t¢. = 36 :; desc offset if 2 sub 
00000028 0000 14 dsc$l_u2_2 = 40 ; desc offset if 2 sub 
0000 144 
0000 145; 
0000 146 ; OWN STORAGE: 
0000 147; 
0000 148 
0000 149 
0000 150; 
st 13) ; PSECT DECLARATIONS: 
00000000 138 -PSECT _BASSCODE PIC, USR, CON, REL, LCL, SHR, - 
4444 13 EXE, RD, NOWRT, LONG 
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This macro contains the looping mechanism for accessing all elements of 

an array. It also contains all the logic for all the combinations of data 
types and scaling. A macro is used to make it easy to maintain the parallel 
code for all the different data types. 


-MACRO SBASSMAT_TRN src_dtype, dest_dtype ; transpose algorithm 


Loop through all the rows. Row and column upper and lower bounds have been 
initialized on the stack. 


LOOP_1ST_SUB'src_dtype'dest_dtype': 
MOVL Tower, bnd2(SP)> R11 ; R11 has 2nd Lower bound 


; Loop through all the elements (columns) of the current row. Column lower 
3; bound is initialized in R11. Column upper bound is on the stack. 

; Distinguish array by data type so that the correct fetch routine can 

3 retrieve the data, the correct conversion can be done and the correct 

3 store routine can be called. 


LOOP_2ND_SUB'src_dtype'’dest_dtype’: 


3* 

3; Get the data from source array 
MOVL R10, RO ; pointer to array dest 
MOVL Lower_bnd1(SP), R1 3 current row 
MOVL R11, R2 3 current col 

FETCH ‘src_dtype’ 3 fetch data from src array 


3+ 

3; If the data types of the source and destination arrays is different, 

3 convert the data to the destination type. If scaling is needed (ie if 
; at least one but not both of the arrays is double) scale the data. 


SOSCCCSCSCSOSSSSCSOSSSSOSOSCSOSSOSOOSOSOOSOSOSOSOOSOSOOOOSOSOOOOO 


SOOCCSCSOOSCSOSCOSSSOSOSSSSOSOSOSOOSOOSOOSOSOOSOSOOSOSOSOOSOSOOSOOSoOO 
COOCOCCOOSSOOSOSSCOSOOSOOCOCSO OSS OSOOCSOSOOCSOOSOOOOOOOO OOOO OOOoOoOO 


SS SSSR SSS SSCS SR eae ote aN PU Die tne oan 
WI OD NOAUE WIN 319 ODNAUE WIN @§ 9 OO NAUE WN $0 OONAUE WN OOONAULS Wn OOon 


RoPofononononononononononony 2 9 Ss Ss Ss Ss Ss SS 


COOOOCOCOOSOOOOOOSOOOCSOOSOOSOSSOSOSSOOSOOSOSOOSOSSOOSOOOOOSOOOOOOSOOOOOOSoOOOoOO 


IF DIF src_dtype, dest_dtype ; src and dest arrays are not 
3 save data type 
IF IDN src_dtype, G 3; source is oat 
00 IF ION desft_dtype, D 3 don't try to CVTGD 
00 CVTGH RO, RO 3 promote source to hfloat 
00 FF : dest is not dbl 
oS CvT'src_dtype'dest_dtype' RO, RO ; OK to cvt to dest type 
0 -ENDC 
00 a 1FF 
If src_dtype, D : source is double 
MOVD 0,- 3: save the data 
0 1 MOVL  SFSL_SAVE_FP(FP), RO : pass FP to get scale 
0 1 JSB G*BASSSSCALE_R1 : get scale in RO & RI 
BS 1 : call a BLISS routine because 
0 1 : the frame offsets are only 


—E 3 
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14 ; defined for BLISS 
09 15 DIVD3 RO, (SP)+, RO ; scale 
0 1 IF IDN dest_dtype, G ; can't CVTDG 
4 1 CVTDH RO, RO 3 $O promote to hfloat 
000 18 LFF ; dest is not gfloat 
4 }? CYT S°t Apymeeest,stype" RO, RO ; cvt src to dest type 
000 A LFF 
$000 ¢ CVTsrc_diype'dest_dtype' RO, RO ; convert data from RO into RO 
0000 IF 1DN dest_dtype, D ; dest is double 
0000 4 MOVD RO, = 3; save the data 
909 5 MOVL  SFSL_SAVE_FP(FP), RO ; pass FP to get scale 
00 6 JSB G*BASSS$SCALE_R1 i get scale in RO & R1 
0000 7 ; call a BLISS routine because 
0000 $s6 3; the frame offsets are only 
0000 $3 ; defined for BLISS 
0000 § 0 MULD2 (SP)+, RO ; scale 
0000 231 JSB G*MTHSDINT_R4 : integerize 
0000 $36 -ENDC 
0000 23 ENDC 
0000 34 -ENDC 
0000 35 -ENDC 
0000 36 
0000 $30 3* ) 
0000 38 ; Now store the data in the destination array. 
0000 239 ; Hfloat passed by value takes 4 words grtees and double take 2 words, and 
0000 240 ; all other supported daty types take { ongword. 
0000 241 ;- 
0000 $e 
0000 24 IF IDN dest_dtype, H 3 dtype is hfloat 
0000 244 MOVL dest_matrix(AP), Ro 3; pointer to array desc 
0000 245 MOVL lLower_bnd1(SP), R6 3 current row, put in col 
0000 246 MOVL R11, RS ; current col, put in row 
0000 247 ~IFF 
0000 248 . IDN dest_dtype, G : dtype is gfloat 
0000 sep MOVL dest_matrix(AP), R2 3 pointer to array desc 
0000 50 MOVL Lower_bnd1(SP), R4 3 current row, put in col 
ai $2] nov R11, R3 3; current col, put in row 
0000 $36 If 1DN dest_dtype, D ; see if dtype is double 
0000 254 MOVL dest_matrix(AP), Re 3; pointer to array desc 
0000 $2? MOVL lower _bnd1(SP), R4 3 current row, put in col 
0000 56 MOVL R11, R3 3 current column, put in row 
iti see FF ; ; all other data types here 
000 58 MOVL dest_matrix(AP), R1 ; pointer to array desc 
0000 259 MOVL lower _bndi(SP), R3 3 current row, put in col 
0000 60 MOVL R11, R2 ; current col, put in row 
0000 61 -ENDC 
0000 66 -ENDC 
0000 6 -ENDC 3; code now same for all dtypes 
0000 264 MOV'dest_dtype’ RO, DATA(SP) 3; store value in DATA 
0000 65 STORE ‘dest_dtype' 3 store in array 
4 66 INCL R11 3 get next column 
00 6 CMPL R11, R9 ; see if Last column done 
000 68 BGTR 3$ ; e 
44 $3 BRW LOOP_2ND_SUB'’src_dtype'dest_dtype’ ; no, continue inner loop 


BASSHAT._TRN 


C 15 
DECLARATIONS "3 g-8 Pa} 984 0: 37: 83 cre BAS SMAT IRN. MAR; 1 


z+ 

: Have completed entire row. See if it was the last row. If not, 
; _cont inue with next row. 

3$: NCL Lower _bnd1 (SP) 3; get next row 

ae Lower_bnd1(SP), upper_bnd1(SP) ; see if last row done 
RW 


w 
wn 
= 
m 
ot 


: yes, finished 


COOOCOCOOOOOOoO 
SOoOooooooooooeSo 


SOoCoQoooooooo°oo 
folelelelolelolelole lo oo) 


le a i 


WR OOONOULS wr 


rors 


LOOP_1ST_SUB'src_dtype'dest_dtype’® ; no, continue outer Loop 


eset 
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000 5 A -SBTTL BASSMAT_TRN = Transpose one matrix into another 
i 5 ; FUNCTIONAL DESCRIPTION: 
000 ; 3 Transpose one matrix into another. If the src matrix has 2 dimensions, 
000 90 ; redimension the output matrix to have the number of rows that the src 
B88 91 ; has columns and the number of columns that the src has rows. (thereby 
0 3 3 ensuring that the dest matrix also has 2 dimensions). Initialize all 
000 93; the necessary Looping information on the stack. Conversions will have 
0000 94 ; to be done from the source data type to the destination data type. so 
4464 32 : divide the looping portion according to the data types. 
$000 39 ; CALLING SEQUENCE: 
0000 98 ; : 
4 4+ 3 CALL BASMAT_TRN (src_matrix.rx.da, dest_matrix.wx.da) 
0000 61 3; INPUT PARAMETERS: 
0000 308 3 
00000004 0000 30 src_matrix = 4 
0000 she ; 
0000 O05 ; IMPLICIT INPUTS: 
0000 306 ; 
it $05 s Scale from the callers frame to scale double precision. 
0000 309 ; OUTPUT PARAMETERS: 
0000 310; ‘ 
00000008 0000 311 dest_matrix = 8 
0000 312; 
0000 $17 ; IMPLICIT OUTPUTS: 
0000 14 ; 
0000 312 ; NONE 
0000 16 ; 
444 17 ; FUNCTION VALUE: 
000 18 ; COMPLETION CODES: 
0000 19 : 
0000 320; NONE 
0000 321 ; 
0000 $55 3; SIDE EFFECTS: 
0000 323; : ess . 
0000 9 324 ; This routine calls the redimensioning routine and the orrey element 
0000 325 ; fetch and store routines and therefore may signal any of their errors. 
0000 $8 : It may also signal any of the errors listed in the externals section. 
444 i 3 It may also cause the destination array to have different dimensions. 
i 
4FFC Hi 4 2) ENTRY BASSMAT_TRN, “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,1V> 
000 33 3¢ 
00 4; REGISTER USAGE 
00 RO - RB destroyed by fetch and store routines 
4 § 3 Rg upper bound for 2nd subscript 
0 3 R10 pointer to arra gescriptor 
BS 3 3 R11 current value of 2nd subscript 
00 40 
00 41 3+ 
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68 | Put rout toe arguments into registers for ease of u 
‘. If block 3 of array descriptor (bounds) is not present then error. 


7E 7C¢ CLRQ (SP) 
: CLRQ =(SP) 
SA OG AE OO a ore patria descr in R10 
src_ma to arra escr n 
13 OA AA O07 «CE BBC #DStSV _FL_B BOUNDS” “Oscse LAFLAGS(RIOD, ERR_ARGDONMA 
; exit if block mT not 
3 present in descriptor 
:* 
: Set up Limits for looping through all elements 
02 OB AA 91 CMPB DSC$B_DIMCT(R10), #2 ; determine # qf subscripts 
2 a BEQLU INIT_SuBS 3: 2 subs, initialize loo 


3 not 2 subs, fall into cores 


Q00000000"8F oD 


wis intial “ty ae MATDIMERR l 2 di 
signal error, not 
00000000'GF 01 FB 9 or, ne ms 


CALLS . G*BASS$STOP : for src matrix 


ERR_ARGDONMAT : 
PUSHL —#BASSK  ARGDONMAT 
CALLS , G*BAS$SSTOP 


ERR_ILLOPE: 
PUSHL a ILLOPE ; signal error, DSCSA_POINTER 
CALLS . G*BAS$$STOP 3 same for src & dest matrices 


00000000°8F oD 


00000000'GF 01 FB signal oy 


block 2 or 3 absent 


Q0000000"8F DD 
00000000'GF 01 FB 


+ 


There are 2 subscripts. Make sure the source and dest matrices are not the 
same. Check and featacneton the destination array if 

necessary. Put the “poet bound for both subscripts on the 

stack and make sure that the lower bound for both subscripts will start 

at 1 (do not alter row or col 9) 


Sete Ge Ge Ge te Se 


INIT_SUBS: 
MO 


OO OO 000909 0909 69 69 09 09 09 SI SIN NSN SN NN SD ODDO PAA AO TUTTI 
NOUS WAR (OOD NAMES WIN 0 ODNOU EWN | 9 ODNA UE WIN 0 OO NAU EW O OONOUS 


5B O08 AC »DO VL dest_matrix( ; get pointer to dest matrix 
04 O35 A 91 CMPB DSC$B eCASSCRIOS, RADSCSK. CLASS_ A; is src virtual 
OF 12 BNEQU VIRTUAL src is virtual 99 process 
04 O3 AB 91 CMPB DSC$B_CLASS(R11), #DSCSK_CLASS_A ¥ is — virtua 
1D 12 BNEQU INIT SUBS yes ant be same array 
04 AB 04 AA OI CMPL DSC$K POIRTER(RIO), DSCSA_POINTER( 115 5 ore matrices the sane? 
| oe BEQLU ERR_ICLOPE : yes, error 
14 = =611 vinTuaL BRB INIT SUBSe2 
06 O35 AB 91 CMPB DSCSB_CLASS(R11), #DSCSK_CLASS_A ; ve dest virtual 
- BEQLU INIT SuBS cant be same array 
FC AB FC AA O01 CMPL oscst UOCONIT(RI0), DSC$L <LoGunt ft cRT4)"S 3; are matrices same 
07 12 9 BNEQ INIT SUBS 2 
F8 AB FB AA ODI 9 CMPL DSCSC_BYTEOFF (R10), DSC$L _BYTEOFE (RIT) : are the matrices 


3; the same, (test for same by 
; same dsc$l_byteoff, dscSl _logunit 


Ne ee ee ee ee ee ne ne ee ww wel elololololololololololololololelololo) 
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00000000 * 8F 
00000000'GF 01 
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399 BEQL ERR_ILLOPE ; yes, error 
400 INIT_SUBS 2: 
401 POSHL dsc$t_u} .g(R1) : end upr bnd, make Ist in dest 
4 ¢ PUSHL dsc$l_u2_2(R10) ; Ist upr bnd, make 2nd in dest 
40 PUSHL R11 3; dest array pointer 
one CALLS #3, G*BASSMAT_REDIM 3 redimension destination 
405 PUSHL dsc$t ul _¢ (R10) ; Ist upper bound 
236 PUSHL dsc$L_l1_2(R10) ; Ist lower bound 
40 BGTR 1$ 3 not row 0 or neg. do cols 
408 MOVL #1, (SP) 3; start with row 
409 1$: MOVL dsc$t ugg (Rip). RO ; 2nd upper bound 
$19 PUSHL dsc$l_l2_2(R10) ; end lower bound 
41 BGTR SEPARATE_DTYPES ; not col 0 or neg. go loop 
tig MOVL #i, (SP) ; start with col 
414 3+ 
a2 ; Algorithm now differs according to data types 
417 
418 SEPARATE_DTYPES: 
419 MOVL R10, RS i save original pointer 
420 5$: CASEB DSC$B_DTYPE(RS), #DSCSK_DTYPE_B, #<DSCSK_DTYPE_D = DSC$K_DTYPE_B> 
421 2$: «WORD BYTE-2$ ; code for byté dtype 
4 § «WORD WORD-2$ ; code for word dtype 
4 eWORD LONG-2$ :; code for long dtype 
424 -WORD ERR_DATTYPERR-2$ ; quad not supported 
425 -WORD FLOAT-2$ 3 code for float dtype 
458 «WORD DOUBLE-2$ ; code for double dtype 
428 ;+ 
639 ; G and H floating fall outside the range of the CASEB, so check for them 
430 ; separately. 
Hy 
o38 CMPB R5CEO_OT PE CRS), #DSCSK_DTYPE_G 
434 BNEQ $ 
$33 BRW GFLOAT 
437 3$: CMPB DSCSB_DTYPE(RS), #DSCSK_DTYPE_H 
438 BNEQ 
rhe BRW HFLOAT 
441 4$: CMPB =: DSC$B_DTYPE(RS), #DSCSK_DTYPE_DSC 
44g BNEQ ERR _DATTYPERR 
44 MOVL 4(R5), R5 ; RS <-- addr of descriptor 
rey BRB 5$ ; CASE again on dtype in desc 
446 ERR_DATTYPERR: 
44 PUSHL #BASSK_DATTYPERR : Signal error, unsupported 
448 CALLS #1, G*BASSS$STOP ; dtype in array desc 


F 15 


1 
( 


0 
4 


) 


G 15 


BASSMAT_TRN 15-SEP- 5: AX/VMS o V04-00 Page 11 
wet BASSMAT_TRN = Transpose one matrix into 6-SEP- 1984 9: 33 32 YBASRTL.S LS TBASMAT TRN.MAR; 1 . (5). 
D 451 i+ 
: 126 5. ; Source array is a byte array. Now differentiate on the destination type. 
D0 454° 
ee. 0 D 236 grres MOVL R11, R5 ointer into R5 
05 06 O2A F D $28 $: CASEB DSC$B_DTYPE(RS), #DSCSK _DTYPE_8, * ¥eDSecS _DTYPE_D = “DScsK _DTYPE_B> 
002D' 00D 457 1$: -WORD BYTE_TO_BYTE-1$ : code for byté dtype 
8 B' QOODA 458 «WORD BYTE_TO_WORD-1$ ; code for word dtype 
EC’ 0ODC 459 eWORD BYTE TO LONG-1$ ; code for long dtype 
FFEB 13 460 «WORD ERR_BATTYPERR-1$ i quad not supported 
OSCD* OOE 461 ~WORD BYTE_TO_FLOAT-1$ ; code for float dtype 
O7AE" O0e 188 «WORD BYTE_TO_DOUBLE-1$ ; code for double dtype 
18 O2A5S 91 0E4 464 CMPB SCSB_DTYPE(RS), #DSCSK_DTYPE_G 
03 12 OQOE8 465 BNEQ $ 
0990 «= 31 its 138 BRW YTE_TO_GFLOAT 
1¢ 02 A5 91 QOED 468 2$ CMPB DSCSB_DTYPE(R5), #DSCSK_DTYPE_H 
03 12 OOF1 469 BNEQ 3$ 
OB6E 31 OOF 5 470 BRW BYTE_TO_HFLOAT 
18 02 A5 91 OOF6 $6 3$ CMPB DSCSB_DTYPE(RS), #DSCSK_DTYPE_DSC 
06 12 QOFA 4 BNEQ 4$ 
55 04 A5 D0 OOFC 474 MOVL 4(R5), RS ; RS <== addr of descriptor 
D111 B109 35 BRB 5$ ; CASE again on dtype in desc 
FFBE 31 0103 499 4$: BRW ERR_DATTYPERR 3; unsupported dtype 
0105 478 
0105 479 i+ 
0105 480 : Now type of source and destination arrays are known. Use the macro to 
0105 481 : _generate the code for each case 
0105 $36 z- 
0105 48 


BASSMAT_TRN = Transpose one wh into yaa 19: 37: 83 YBASRIL SRESBASMATIRN.MAR: 1 “ripe: &) 


Q105 485 BYTETOBYTE: SBASSMAT_TRN B, B 
2&3 «486 


BASSMAT_TRN 
1-013 


BASSMAT_TRN 


02E3 
04(4 


1 15 


15-SEP-1984 
- Transpose one matrix into 6-SEP-1984 
$88 BYTE_TO WORD: SBASSMAT_TRN B, W 


3 
0 


31:25 


AX/VMS Macro V04-00 
BASRTL.SRCIBASMATTRN.MAR; 1 


Page 13. 
’ (5) > 


BASSMAT_TRN 
13” 


BASSMAT_TRN 


4C4 
6A5 


492 


J 15 
- Transpose one matrix into "B7$tF 71982 99; 373 93 
491 BYTE_TO_LONG: $BASSMAT_TRN B. L 


AX/VM 
BASRT 


0 V04-00 
JBASMATTRN. MAR; 1 


Page 14 . 
. (5). 


K 15 
_BASSMAT_TRN 15-SEP-19 
1-013 


84 
BASSMAT_TRN = Transpose one matrix into 6-SEP-1984 
F 


06A5 494 BYTE_TO_FLOAT: $BASSMAT_TRN B, 
0886 495 


23:55:09 VAX/VMS Macro V04-00 Page 15 | 
10:31:25 CBASRTL.SRCIBASMATTRN.MAR; 1 (5 


15*SEP=1984 23:55: AX/VMS Macro V04-00 Page 16 
BASSMAT_TRN = Transpose one matrix into 6-S Pa} 984 13:33:98 YBASRIL. SRCIGASMATTRN.MAR: 1 . (8). 
856 497 BYTE_TO_DOUBLE: SBASSMAT_TRN B, D 
A7D =498 


m1 | 
BASHRATATRN BASSMAT_TRN = Transpose one matrix rks ens 19; 373 93 cre Cog AMMAT by. MAR; 1 —_ ty 


gare 200 BYTE_TO_GFLOAT: SBASSMAT_TRN B, G 
C64 1 


BASSMAT_TRN 
1-013 


BASSMAT_TRN 


0C64 
OE4B 


N 15 


15-S 
- Transpose one matrix into g-SEp a1 


503 BYTE_TO_HFLOAT: $BASSMAT_TRN 


P=1984 23: 
984 10:31:25 (CBASRTL.S 
H 


55:09 VAX/VMS Ma 


cro V04-00 
RCIB BASMATTRN.MAR; ‘" 


B 16 
15-SE 5:09 VAX/VMS Macro v04-00 Pa 
BASSMAT_TRN = Transpose one matrix into 6-SE sats ri 9; 33 £93 BASRTL.SR REIB BASMATTRN.MAR; 1 ” 


E48 : 
re hE ; Source array is a word array. Now differentiate on the destination type. 
E48 ; 
55 3 0 0&48 10 WORD: MOV R11, R5 move original pointer in RS 
06 O2A F E4 11 5$: CASEB SC $B pts ade #DSCSK_DTYPE_B, * WeDSCSK DIYPE_D = DSCSK_DTYPE_8> 
8 D’ ce \¢ 1$: -WORD WORD_TO_BYTE-1$ ; code for byté dtype 
E* OE 1 «WORD WORD-TO-WORD=1$ ; code for word dtype 
0 +9 €5 14 «WORD ORD_TO_LONG-1$ ; code for long dtype 
fe E59 15 «WORD ERR _BATTYPERR-1$ 3 quad not supported 
O5CD* 0£5B 16 «WORD WORD_TO_FLOAT- ; code for float dtype 
O7AE' Bee alt -WORD WORD TO-DOUBLE-1$ ; code for wouble dtype 
1B 40205) «(91 «#(OESE «519 CMPB = DSCSB_DTYPE(RS), #DSCS$K_DTYPE_G 
03 12 OE€63 520 BNEQ 
0990 31 bree 2s! BRW WORD_TO_G*LOAT 
1¢ 602 AS) 91s: E68 528 2$ CMPB = DSCSB_DTYPE(RS), #DSCSK_DTYPE_H 
03 12 OEF6C 524 BNEQ $ 
OB6E 31 33 252 BRW WORD_TO_HFLOAT 
18 02 A5 91 O€71 527 3$ CMPB DSCSB_DTYPE(R5), #DSCSK_DTYPE_DSC 
06 12 OE75 528 BNEQ 
55 04 A5 00 OE77 529 MOVL 4(R5), R5 ; R5 <== addr of descriptor 
D111 bee 239 BRB 5$ 3; CASE again on dtype in desc 
F243 31 =~0E7D 236 4$: BRW ERR_DATTYPERR 3 unsupported dtype 
OE80 53 
OE80 534 ;+ 
0E80 535 ; Now type of source and destination arrays are known. Use the macro to 
OE80 536 ;_generate the code for each case 
0E80 537 ;- 
0E80 538 


ne 
wo 


C 16 
est 15-SEP-1984 $333 :92 AX/VMS Macro v04-00 Page 20 


——— rn 


1-013 BASSMAT_TRN = Transpose one matrix into 6-SEP-1984 BASRTL.SRCJBASMATTRN.MAR; 1 (5) 


QE80 540 WORD_TO_BYTE: $BASS$MAT_TRN Ww, B 
1061 = 541 


pine eecpentensimenimnnteat rire FEET SRS 2) ne 
BASSMAT_TRN 15-SEP-1984 23:55:09 VAX/VMS 
mite z BASSMAT_TRN = Transpose one matrix into aaSep-1984 10:31 558 


1061 543 WORD_TO_WORD: $BASSMAT_TRN iW, W 
123F 544 


Macro V04-00 Page 21 
BASRTL.SRCJBASMATTRN.MAR; 1 (5) 


AX/VMS Macro 


v04-00 Page 
BASRTL.SRCIJBASMATTRN.MAR; 1 


BASSMAT_TRN 15=SEP 
1-013 BASSMAT_TRN = Transpose one matrix into 6=-SEP 


123F $46 WORD_TO_LONG:  SBASSMAT_TRN ; 
1420 54 


mw 
No 
wo 
=< 
an 
win 


) 


i | 
e ata 
ono 
coco 
- FS 


55:09 VAX/VMS Macro v04-00 Page 


F 16 
BASSMAT_TRN 15-SEP-1984 23: 
1-013 984 10:31:25 CBASRTL.SRCIBASMATTRN.MAR; 1 


BASSMAT_TRN = Transpose one matrix into basEP-| 
1420 3654 
1601 55 


2 
1 


amnN 
Vw 


4 
4 ) 
F 


3 WORD_TO_FLOAT: $BASSMAT_TRN  wW, 


G 16 
BASSMAT_TRN 15-SEP-1984 23:55:09 VAX/VMS Macro 
1-013 ~ BASSMAT_TRN = Transpose one matrix into grsEpa 1984 25; 33 £98 


1601 52 WORD_TO_DOUBLE: SBASSMAT_TRN W, D 
ire 334 hat ™ 


ro V04-00 Page 24 
BASRTL.SRCJBASMATTRN.MAR; 1 (5) 


| H 16 
BAST ght {TRN BASSMAT_TRN = Transpose one matrix into "328 Pa} O84 13:33:58 LGASRTL. SREIBASRATIRN.MAR: 1 a 2, 


17F8 5 WORD_TO_GFLOAT: SBASS$MAT_TRN ay 
19D 222 ~'O0_GFLO SBAS os G 


| 1 16 
15-SE 


BASSMAT_TRN P=1984 23:55:09 VAX/VMS Macro v04-00 Page 26 
1-013 BASSMAT_TRN = Transpose one matrix into 6-SEP-1984 10:31:25 (CBASRTL. GRE IBASMATIRN. MAR; 1 (5) 
19DF 558 WORD_TO_HFLOAT: SBASSMAT_TRN iW, H 


1BC6 = 5559 


J 16 


BASSMAT_TRN 15-SEP-1 5: AX/VMS Macro v04-00 Page 27 
1-013 ~ BASSMAT_TRN = Transpose one matrix into 6=S Pa19b4 9: 3} 93 BASRTL.SRCJBASMATTRN.MAR; 1 . (5) 
1BC6 61 i+ 
18Ce i ; Source array is a longword array. Now differentiate on the destination type 
1BC6 64 
55 58 0 1et8 65 LONG MOVL R11, _R5 over oree pet ointer 
05 06 02 AS F 1BC 96 $: CASEB DSC$B Bt Yre Che)» #DSCSK_DTYPE_B, * WeDSCSK _DTYP SCS$K_DTYPE_8> 
8 D' 18C 67 1$: «WORD LONG _TO_BYTE-1$ ; code for byté dtype 
—E* 18D 68 oW CONG? O_WORD-1$ ; code for word dtype 
OSEF* 1BD +4 -WO LONG LONG-1 ; code for long dtype 
4F5 1BD4 0 -WO RR_BATTYPERR-1$ i quad not supported 
5CD* 18D6 71 ~WORD LONG_TO_FLOAT-1$ ; code for float dtype 
7AE" ieee te «WORD LONG_TO- ~DOUBLE-1$ ; code for double dtype 
18 02 A5 91 #1BDA 57% CMPB ss OSCSB_DTYPE(R5), #DSCSK_DTYPE_G 
os: ae. oe. - ae BNEQ 
0990 «(31 ieEy 278 BRW LONG_TO_GFLOAT 
1¢ 602 AS. O91 1BES)—s«578 28 CMPB =s-: DSC $B_DTYPE(R5), #DSCSK_DTYPE_H 
03 12 1BE7 579 BNEQ $ 
OB6E 31 +4 280 BRW LONG_TO_HFLOAT 
18 02 A5 91 1BEC 286 3$ CMPB DSCSB_DTYPE(R5), #DSCSK_DTYPE_DSC 
06 12 #1BFO 58 BNEQ 
55 04 A5 00 1BF2 584 MOVL 4(R5), RS 3: RS <-- addr of descriptor 
a: 1er8 a BRB 5$ ; CASE again on dtype in desc 
E4c8 31 18F8 38 4$ BRW ERR_DATTYPERR ; unsupported dtype 
1BFB «= 588 
1BFB = 589 ;+ 
1BFB 590 : Now type of source and destination arrays are known. Use the macro to 
ot 29} : ;_generate the code for each case 


K 16 
BASSMAT_TRN = Transpose one matrix into "Er Seb = 382 13:33:98 YOASRTL . eRe IBASMATTRN.MAR: 1 aye 2, 
jere 238 LONG_TO_BYTE: $BASSMAT_TRN Ll, B 


BASSMAT_TRN 
i818 * 


BASSMAT_TRN = Transpose one matrix into eats t 71 19; 7: 33 UBASRTL L.S gee} BASMATSAN. MAR; 1 _ @; 


1DRC $97 LONG_TO_WORD: | SBASSMAT.TRN LL, 
1FBD 598 


BASSMAT_TRN 15-SEP-1984 23:55: AX/VMS Macro V04- P 
1-515 BASSMAT_TRN = Transpose one matrix into 6S P1984 10:31:98 LBASRTL. SRCSBASHATIRN. MAR: 1 — 2g, 


1FBD 600 LONG_TO_LONG:  $BASSMAT_TRN L.~L 
2198 601 gs r 


BASSMAT_TRN 
1-013 


4 
BASSMAT_TRN = Transpose one matrix into 6= 
$198 603 LONG_TO_FLOAT: $BASS$MAT_TRN 
37C = 604 


Pa1984 4 
F 


L, 


3 
0 


137298 


AX/V 
BASR 


MS 
TL 


Macro 
«SRCIB 


v04-00 P 
ASMATTRN.MAR; 1 


age 31 
. (5) 


— 


r 


BASSMAT_TRN 
1-013 


15-SE 
BASSMAT_TRN = Transpose one matrix into 6=SE 


237C 606 LONG_TO_DOUBLE: SBASSMAT_TRN 
2573 =607 


P=1 


=< 


AX/VMS Macro V04-00 
BASRTL.SRCJBASMATTRN.MAR; 1 


me 


ne ee ee Te Eee eee 


omina 


B..% 
PASSAT Ths : YF ot i at 9 $3593 :92 AX/VMS Macro V04-00 Page 33 
1-013 BASSMAT_TRN = Transpose one matrix into 6=-SEP-1984 10:31:25 [BASRTL.SRCJBASMATTRN.MAR; 1 (5) 
L. § 


573 60 LONG_TO_GFLOAT: SBASSMAT_TRN F 


9 
75A 0 


r-- 


BASSMAT_TRN 
1-013 


: % 
15- 
BASSMAT_TRN = Transpose one matrix into 6=- 
75A oi¢ LGNG_TO_HFLOAT: SBASSMAT_TRN 
941 61 


S 
S 


PayoRG | 
H 


3 
0 


13495 


AX/VMS Me 
BASRTL.S 


cr 
CJ 


) 
BA 


v04 
SMA 


-00 
TTRN.MAR; 1 


Page 34 
~ 


05 


06 


18 


F 


o V04 


acr po 
BASRTL.SRC JBASMATTRN.MAR; 1 


PE_D = DSC$K_DTYPE_B> 


recover ortaunet polnser 
b 


$K_DT 
for byte dtype 
code for word dtype 
code for long dtype 
quad not supported 
code for float dtype 
code for double dtype 


; RS <== addr of descriptor 
; CASE again on dtype in desc 


; unsupported dtype 


15-SEP-1984 23:55:09 VAX/VMS M 
BASSMAT_TRN = Transpose one matrix into 37S Eb= 1 882 93:37 198 
941 615 ;4 
ae} 818 ; Source array is a floating array. Now differentiate on the destination type 
941 o18 

DO 2941 619 FLOAT: MOVL R11, _R5 : 

BF 2964 620 5$: CASEB DSC$B_DTYPE(RS), #DSCSK_DTYPE_B, #<DS 
9920" 949 621 1$ «WORD FLOAT-TO_BYTE=1$ ; code 
0¢ E' 2948 6 : “WORD FLOAT“TO“WORD-1$ ; 

0 a 94D 6 » WORD FLOAT_TO_LONG-1$ ; 
D77A_ 294F 624 -WORD ERR_DATTYPERR-1$ : 
05D0' 2951 625 “WORD FLOAT_TO_FLOAT-1$ : 
O7AE" 933 6 § .WORD FLOAT TO“DOUBL-1$ : 

91 955 628 CMPB DSCSB_DTYPE(R5S), #DSCSK_DTYPE_G 

12 2959 629 BNEQ 2s 

31 2958 630 BRW FLOAT_TO_GFLOA 

91 295E 63¢ 2$ CMPB = DSCSB_DTYPE(RS), #DSCSK_DTYPE_H 

12 Spee 63 BNEQ 3$ 

31 2964 634 BRW FLOAT_TO_HFLOA 

2967 36635 

91 341 636 3$ CMPB DSCSB_DTYPE(RS), #DSCSK_DTYPE_DSC 

12 2968 637 BNEQ 4$ 

DO 296D 638 MOVL 4(R5), R5 : 

11. 2971 »=639 BRB 5$ 5 

2973 «640 
31 2973 641 4$: BRW ERR_DATTYPERR 3 
2976 §=6642 
2976 643 3+ aie 
2976 «644 ; Now type of source and destination arrays are known. Use the macro to 
sore 2 ; generate the code for each case 


00 Page 35 


(5) 


— 


ASSMAT_TRN 
AO" 


BASSMAT_TRN 


uF bt dt FS 9 
- Transpose one matrix into 6=-SEP-19 


2976 648 FLOAT. TO.BYTE: SBASSMAT_TRN 
B57 64 


4 
F, B 


1533 


5: 
1: 


9 
5 


AX/VM 
BASRT 


cro V04-00 
REI BASMATTRN.MAR;1 


Page +, 


--— 


BASSMAT._TRN 


BASSMAT_TRN = Transpose one matrix into "28 Pa} oRG 13:33:38 YOASRTL . SRE TBASMATSRN. MAR: 1 
$837 $3} FLOAT_TO_WORD: $BASSMAT_TRN F, W 


Pa 37 
- 


BASSMAT_TRN 
1-013 


BASSMAT_TRN 


2038 
2F 19 


15=SEP=19 
- Transpose one matrix into 6=SEP=-19 


654 FLOAT_TO_LONG: $BASSMAT_TRN fF, 


- fe 


cro 
RCIBA 


v04-00 
BASMATTRN.MAR; 1 


Page 38 
' (5) 


ASSMAT_TRN 
i013" 


BASS$MAT_T 


ao 


15-SEP-1984 
- Transpose one matrix into 6-SEP-1984 


ag FLOAT_TO_FLOAT: SBASSMAT_TRN F, F 


fo:3i:25 


AX/VMS 
BASRTL.S 


o V04 


P 
SBASMAT aw. MAR; 1 


BASSMAT_TRN 
1-013 


K 1 


15-SEP- 
BASSMAT_TRN = Transpose one matrix into 6=-SEP- 
660 FLOAT_TO_DOUBL: SBASSMAT_TRN 


: VAX/VMS Macro Vv04-00 
:25 (CBASRTL.SRCIBASMATTRN.MAR; “i 


be 


BASSHAT_TRN 


15-$ 
BASSMAT_TRN = Transpose one matrix into 6=S 


32EE 663 FLOAT_TO_GFLOA: SBASSMAT.TRN 
4D 64 


pa19be fO:3ii05 


F, G 


AX/VM 
BASRT 


SBaSm 


04-00 
ATTRN.MAR; 1 


rom, 


—- = ,* 


BASSRAT_TRN 


BASSMAT_TRN 
3405 
6BC 


15-§ at 9 


= Transpose one matrix into 6-SEP 
666 FLOAT_TO_HFLOA: SBASSMAT_TRN 


1984 
F, H 


0:31:95 


AX/VM 
BASRT 


0 V04- 
SBASMA 


798 
ATTR 


N.MAR;1 


roe, 


N 1 
15-SEP-1984 23:55:09 VAX/VMS Macro v04-00 P 43 
BASSMAT_TRN = Transpose one matrix into g-SEp- 1984 0: 731: 93 BASRTL.SRCIJBASMATTRN.MAR; 1 rst (5) 


6BC 669 ;+ 
ret $76 ; Source array is a double array. Now differentiate on the destination type. 
6BC 672 © 
55 5B 00 368C 58 DOUBLE: MOVL R11, R5 > recover original teers 
06 02 AS 8F 36BF 674 5$ CASEB O0SC$B_DTYPE(RS), #DSCSK _bTYPE 8, — a Nap - DSCSK_DTYPE_B> 
002D' 36¢4 675 1$ -WORD DOUBLE_TO_BYTE- Ls ; code for byte dtype 
O21F* 3606 676 -WORD DOUBLE-TO_WORD-1$ Z st for word dtype 
0411' 36€8 677 -WORD DOUBLE-TO-LONG-1$ ; code for long dtype 
COFF 36CA 678 -WORD ERR_DATTYPERR-1$ 3 quad not supported 
0603' 36CC 679 «WORD DOUBLE_TO_FLOAT-1$ 3 code for float dtype 
07F5° 43 680 -WORD DOUBLE-TO_DOUBL-1$ :; code for double dtype 
18 02 A5 91 3600 ret CMPB DSCSB_DTYPE(RS), #DSCS$K_DTYPE_G 
03 12 3604 68 BNEQ 
O9BE 31 3608 ob? BRW DOUBLE _TO_GFLOA 
1¢ 02 AS 91 3609 686 28: CMPB SCSB_DTYPE(RS), #DSCSK_DTYPE_H 
03 12 36DD 687 BNEQ 
OBAD 31 ty O38 BRW DOUBLE _TO_HFLOA 
18 O02aA5 91 3085 690 3$: CMPB DSCSB_DTYPE(RS), #DSCSK_DTYPE_DSC 
06 12 36€&6 691 BNEQ 
55 04 A5 DO 36E8 692 MOVL 4(R5), RS 3 RS <== addr of descriptor 
ee sree oo? BRB 5$ 3; CASE again on dtype in desc 
C902. 31 3S6EE 8=— 695 GS: BRW ERR_DATTYPERR 3 unsupported dtype 
36F1 696 
36F1 697 ;+ 
36F 1 698 : Now type of source and destination arrays are known. Use the macro to 
ser) 923 3 : _generate the code for each case 


os 


ec 


BASSAT_TRN 
1-013 


B 2 
15-SEP-1984 5:09 
BAS$SMAT_TRN = Transpose one matrix into 6=-SEP-19 384 9 33 98 
6F1 702 DOUBLE_TO_BYTE: SBASS$MAT_TRN ’ 
3863 408 Tees on 3 ds 


AX/VMS ae 


BASRTL.SR 


cro 
CBA 


v04-00 
ASMATTRN.MAR; 1 


Page 44 


(5) 


is 


—@w 


BASSMAT_TRN 
1-013 


a 
BASSMAT_TRN = Transpose one matrix into 6=SE 


38E3 705 DOUBLE_TO_WORD: SBASSMAT_TRN 
3AD5 = 706 


15-SEP-1984 23: 
P 4 1 


red vg Macro V04-00 


BASRTL.SRCJBAS 


MATTRN.MAR; 1 


Page 


oat il 
ww 
~ 


—@ 


——_-—--- --—- - 


| 


BASSMAT_TRN 
eet ; 


dD 2 


ok at 


BASSMAT_TRN = Transpose one matrix into 6=-SEP-19 


3AD5 708 DOUBLE_TO_LONG: SBASSMAT.TRN D, 
cc? 709 


4 
4 


L 


10:31:95 


AX/VM 
BASRT 


S Ma 
L.SR 


¢ 
C 


o v04-00 


r 
JBA 


SMA 


TTRN.MAR; 1 


teal 


| BASBHAT_TRN 
1-013 


Fats ib $3339 
BASSMAT_TRN = Transpose one matrix into 6=SEP=1984 10:31:25 
acc? 711 DOUBLE_TO_FLOAT: SBASSMAT_TRN 0D, F 
EB9 712 


AX/VMS Mac 
BASRTL.SRC 


e 
J 


o V04-00 
BASMATTRN.MAR; 1 


Page 


47 
(5) 


a oe 


-— 


BASSMAT_TRN 
1-013 


BASSMAT_TRN 


3EB9 
4097 


15-SEP-19 
- Transpose one matrix into 6-SEP-19 


ie DOUBLE _TO_DOUBL: SBASSMAT_TRN 0D, 


84 23: 33709 
84 10:31: 
D 


09 
25 


AX/VMS Macro v04-00 
BASRTL.SRCJBASMATTRN.MAR; 1 


Page 


48 
(5) 


15-SEP-1984 23:55: 
BASSMAT_TRN = Transpose one matrix into 6-S Pa} 984 $3:33:98 f 
$93? 717 DOUBLE_TO_GFLOA: SBASSMAT_TRN OD, G 
428F §=6 718 


AX/VMS Macro V04-00 
BASRTL.SRCJBASMATTRN.MAR; 1 


Page 7 


9 
5) 


— 


2 
BASSMAT_TRN = Transpose one matrix into "E7852 | $82 13:33:98 YOXSRTL. SRCIBASMATSAN. MAR; 1 


428f 720 DOUBLE_TO_HFLOA: SBASSMAT_TRN D, H 


rm Hf, 


BASSHAT_TRN 


BASSAAT _TRN . # 5-SEP =1384 $3: 3! 92 pares o V04-00 Page 51 


BASSMAT_TRN = Transpose one matrix into > SEP BASRTL.SRCIJBASMATTRN.MAR; 1 (5) 
4487 723 ;+ 
“ f ¢ ; Source array is a gfloat array. Now differentiate on the destination type. 
4487 726° 
— 2 0 46487 7 : GLLOAT MOVL R11, R5 recover original pointer 
05 06 O2A F 448A 7 8 $: ASEB SC $B iy Hh #DSCSK_DTYPE_B, * weDSCSK map 4 _D = DSCSK_DTYPE_8> 
O2D' 448F 729 1$: «WORD GFLOAT_TO_BYTE-{$ ; code byté dtype 
¢ 5° 4491 730 «WORD GFLOAT_TO_ ORD=13 3 code for word dtype 
FD" meet: 731 «WORD GFLOAT_TO_LONG-1$ ; code for long dtype 
BC34 449 7 ¢ «WORD ERR_DATTYPERR-1$ i; Quad not supported 
OSES’ 4497 7 «WORD GFLOAT_TO_FLOAT-1$ i code for float dtype 
07CD° rr 44 f : «WORD GFLOAT-TO-DOUBL-1$ 3; code for double dtype 
1B O02 AS 91 #44698 7 $ CMPB B5CSO_DTVPECRS), #DSCSK_DTYPE_G 
03 12 449F 7 BNEQ 4 
09A0 (31 46a] 138 BRW GFLOAT_TO_GFLOA 
1¢ 02 AS 91 44606 740 2% CMPB GeCee OTE KaD?, #DSCSK_DTYPE_H 
03 12 46A8 741 BNEQ $ 
0880 3= 31 ree) rg BRW GFLOAT_TO_HFLOA 
18 02 A5 91 44AD 746 3$ CMPB DSCSB_DTYPE(RS), #DSCSK_DTYPE_DSC 
0 12 4481 745 BNEQ 4$ 
55 O4A DO 4483 rs MOVL 4(R5), RS ; RS <== addr of descriptor 
D1 Oso rer 4 4 BRB 5$ ; CASE again on dtype in desc 
BCO7 31 4489 749 4$: BRW ERR_DATTYPERR ; unsupported dtype 
44BC 750 
44BC eo) 
44BC Pg ; Now type of source and destination arrays are known. Use the macro to 
448C 75 _generate the code for each case 
44BC 754 ;- 
448C 755 
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44B¢ 757 GFLOAT.TO.BYTE: SBASSMAT.TRN — G, B 
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760 GFLOAT_TO_WORD: SBASSMAT_TRN  G, 
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; 1 BASSMAT_TRN = Transpose one matrix into 6-S Pa} 984 13:33: 33 8 ASRTL.S 8A SMATTRN. RAR; 1 — {$) 
$886 763 GFLOAT_TO_LONG: SBASSMAT_TRN G.L 
4A74 = 764 


22 


2 | 
BASSMAT_TRN = Transpose one matrix into "38 P=} 984 9; 7: 82 YOASRTE L.S ater TIRN MAR: 1 eg! 3) 


4A74 766 GFLOAT.TO_FLOAT: SBASSMAT_TRN G, F 
4Cc5C 76 
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769 GFLOAT_TO_DOUBL: $BASS$MAT_TRN G, 
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- Transpose one matrix into 6-SEP-1984 


77g GFLOAT_TO_GFLOA: SBASSMAT_TRN G, G 
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SMATTRN.MAR; 1 
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775 GF 
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05 06 O2A 
1B 02 AS 
03 
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1C¢ =602 AS 
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BASSMAT_TRN = Transpose one matrix into 65S 1386 9: 33 93 BASRTL.S RIB BASMATTRN.MAR; 1 " (5) 
1A = 778 54 
2 i ; Source array is a hfloat array. Now differentiate on the destination type. 
1A 781 
dO 1A 7? ¢ HFLOAT: MOVL R11, R5 recover original Weer 
5H 8 783 5$: CASEB osc $B DTYPE(RS), #DSCS$K _bTvPE.B ae “" _DTYP - DSCSK_DTYPE_8> 
00 ? 784 1$: .WORD HFLOAT_TO_BYTE-1$ ; code for byte dtype 
Oe! . 4 785 ~WORD HFLOAT_TO_WORD-1$ 3 code for word dtype 
O3FD* g £36 «WORD HFLOAT TO_LONG-1$ ; code for long dtype 
gal 4 -WORD ERR_DATTYPERR-1$ 3; quad not supported 
OSE5* A 788 «WORD HFLOAT_TO_FLOAT-1$ 3; code for float dtype 
07CD° ; : 44 «WORD HFLOAT_TO_DOUBL-1$ ; code for double dtype 
91 E731 CMPB ss OSCS$B_DTYPE(RS), #DSCSK_DTYPE_G 
> ae 79 BNEQ $ 
31 § 34 193 BRW HFLOAT_TO_GFLOA 
91 : 37-795 2s: CMPB SC$B_DTYPE(RS), #DSCSK_DTYPE_H 
12 5238 796 BNEQ $ 
31 5230 797 BRW HFLOAT_TO_HFLOA 
5240 798 
91 5240 799 38: CMPB = OSCSB_DTYPE(R5S), #DSC$K_DTYPE_DSC 
12 5244 800 BNEQ 
DO 5246 801 MOVL 4(R5), RS ; RS <== addr of descriptor 
11 agen 4 BRB 5$ ; CASE again on dtype in desc 
31 524C 804 4$: BRW ERR_DATTYPERR 3 unsupported dtype 
ser 805 
524F 806 ;¢ 
524F 807 ; Now type of source and destination arrays are known. Use the macro to 
str 808 ; _generate the code for each case 
524F 809 ;- 
524F 810 
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$807 821 HFLOAT_TO.FLOAT: SBASSMAT_TRN 1H, F 
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4 a6 HFLOAT_TO_DOUBL: SBASSMAT_TRN H, D 
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BASSSSTOP 
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ses 
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® — COC CD CD CD CDCD 
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OAT_TO_BYTE 
HF LOAT~T0~DOUBL 
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LOAT_10 LONG 
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HFLOAT~TO-WORD 
INIT_SOBS 
INIT~SUBS_2 
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LONG TO"LONG 
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! Psect synopsis ! 
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PSECT name Allocation PSECT No. Attributes 

. ABS ‘ 00000000 < 0.) oF ( 9. ) NOPIC USR CON ABS LCL Se NOEXE NORD oust NOVEC BYTE 
SABSS 00000000 ( 3°} } }.) NOPIC USR CON ABS LCL NOSHR' EXE RD WRT NOVEC BYTE 
_BASSCODE OOOOSFC (24515.) 2.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
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! Performance indicators ! 


(ucenene: meme w oe ee oeeaeas + 


Phase Page faults CPU Time Elapsed Time 
Initialization 28 00:00:00.08 00:00:00.31 
Command processing 102 00:00:00.66 00:00:02.89 
Pass 1 1020 00:00:40.75 00:01:26.26 
Symbol table sort 6 00:00:01.85 00:00:09.19 
Pass 2 635 00:00:09.69 00:00:32.14 
Symbol table output 89 00:00:00.22 00:00:02.31 
Psect synopsis output 7 00:00:00.04 00:00:00.21 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 1890 00:00:53.31 00:02:13.34 


The working set Limit was 750 pages. 

297708 bytes (582 pages) of virtual memory were used to buffer the intermediate cod 

There were 60 pages of symbol table space allocated to hold 369 non-local and 824 locel symbols. 
832 source lines were read in Pass 1, producing 75 object records in Pass 2. 

32 pages of virtual memory were used to define 11 macros. 


Se em em fe 


Macro Library name Macros defined 
"$255$DUA28: CBASRTL.OBJJBASRTL.MLB; 1 2 
“$255$DUA28:(SYSLIBISTARLET.MLB;2 5 

TOTALS (all Libraries) 7 


493 GETS were required to define 7 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:BASMATTRN/OBJ=0BJ$:BASMATTRN MSRC$:BASMATTRN/UPDATE=(ENH$:BASMATTRN) +L 1 
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